home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib16.dsk / SHIFTUP AND SHIFTDOWN DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  357b  |  7 lines
  1. 5  REM  REQUIRES BLOCK ROUTINES $90AA AND BLOCK SHAPE #144
  2. 10  HGR2 : CALL 37799: POKE 251,144
  3. 20  POKE 252,1: POKE 253,12: POKE 254,3: POKE 255,1: CALL 37679
  4. 25  CALL 37085: CALL 37143: REM  ADD 1 EMPTY ROW ABOVE AND BELOW
  5. 30  FOR X = 1 TO 190: CALL 37034: NEXT : REM  MOVE SHAPE DOWN
  6. 50  FOR X = 1 TO 190: CALL 37088: NEXT : REM  MOVE SHAPE UP
  7. 60  GOTO 30